home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / CONNECT.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  1.1 KB  |  50 lines
  1. # Australia InterConnect (Australia) PPP login script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 5-10-95 Earl White
  4.  
  5. STRING username
  6. STRING password
  7.  
  8. TRACE OFF
  9.  
  10. SetTimeout      90                      # reset maximum script timeout
  11.  
  12. # Get username from access method
  13. CfgGetValue "Username" username
  14. IF result = 0 THEN
  15.     ABORT "Can't load Username from qdeck.ini"
  16. ENDIF
  17.  
  18. # get password from access method
  19. CfgGetValue "Password" password
  20. IF result = 0 THEN
  21.     ABORT "Can't load Password from qdeck.ini"
  22. ENDIF
  23.  
  24. CommWaitFor "Username:"        # wait for username
  25.     CommSend username        # send user name
  26.     CommSend "%r"            # send carriage return
  27.  
  28. CommWaitFor "Password:"        # wait for password prompt
  29.     CommSend password        # send password
  30.     CommSend "%r"            # send carriage return
  31.  
  32. CommWaitFor ">"
  33.  
  34. # We've hit the terminal server
  35.  
  36. CommSend    "PPP%r"
  37. CommWaitFor "name: "
  38.  
  39. # Now we're doing it again !
  40.  
  41. CommSend username            # send user name
  42. CommSend "%r"                # send carriage return
  43.  
  44. CommWaitFor  "Password:"    # wait for password prompt
  45.     CommSend password        # send password
  46.     CommSend "%r"            # send carriage return
  47.  
  48. END                            #success if we got this far
  49.  
  50.